library(data.table)
library(dplyr)
dna <- read.table("GitHub/leecode_rosalind/count_dna_nucleotides/dna.txt",
                  header = F)
dna <- as.character(dna$V1)

dna %>% 
  strsplit(split = '') %>% 
  table()
